10 POKE53280,0:POKE53281,0:PRINT"[147]"
11 PRINT"INTRO? (J/N)"
12 GETA$:IFA$=""THEN12
13 IFA$="N"THEN40
14 IFA$<>"J"THEN12
20 OPEN2,8,2,"TITEL,S,R"
30 FORI=15360TO15871:INPUT#2,Q:POKEI,Q:NEXT:CLOSE2
40 FORI=832TO1022:READQ:POKEI,Q:NEXT
45 DIM E0(12):FORI=1TO12:READE0(I):NEXT:DIME1(12):FORI=1TO12:READE1(I):NEXT
50 DATA 255,255,,128,1,,128,1,,128,1,,128,1,,128,1,,128,1,,255,255,,
55 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,96,,,240,,,240,,,96,,,
60 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
70 DATA 255,255,255,128,,1,128,,1,128,,1,128,,1,128,,1,128,,1,128,,1,128,,1
75 DATA 128,,1,128,,1,128,,1,128,,1,128,,1,128,,1,128,,1,128,,1,128,,1,128,,1
80 DATA 128,,1,255,255,255
82 DATA 24,50,48,50,72,50,24,71,48,71,72,71
83 DATA 24,50,72,50,120,50,24,92,72,92,120,92
84 V=53248:B=0:Y1=50:Y2=72
85 F(0)=12:F(1)=11:F(2)=1:F(3)=1:F(4)=1:F(5)=6:F(6)=6:F(7)=6:AF=F(0)
86 X$(0)="[151]  JA [146]     NEIN":X$(1)="[151]  JA      NEIN[146]"
87 GOSUB2000
90 POKE2040,13:POKEV+39,7:POKE2041,15:POKEV+40,1:POKE53276,252
100 FORI=0TO5:POKE2042+I,250+I:POKEV+41+I,F(I+2):NEXT
105 POKE53285,F(0):POKE53286,F(1):POKEV+23,0:POKEV+29,0
110 FORI=1TO12:POKEV+I+3,E0(I):NEXT
115 POKE V+2,24:POKEV+3,50:POKEV+21,255
118 PRINT"";TAB(15);"[151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
120 FORI=0TO20:PRINTTAB(14);"[151][170][144]                        ":NEXT
125 PRINTTAB(15);"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
126 PRINT"[151][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
127 PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]":PRINT"PINSEL:  [146]":POKE56224,AF
130 PRINT"";TAB(15);"H1 [146]H2 [146][151]F1 [146]F2 [146]F3 [146]F4 [146]F5 [146]F6 [146]"
135 FORI=0TO7:POKE55313+3*I,F(I):NEXT
137 POKE55317+B*3,1:POKE55318+B*3,1
155 HX=144:HY=66
160 POKEV,HX+8*X-R*255:POKEV+1,HY+8*Y
165 GETA$:IFA$=""THEN165
170 IFA$="[145]"THENY=Y-1:IFY<0THENY=20
175 IFA$=""THENY=Y+1:IFY>20THENY=0
180 IFA$=""THENX=X+2:IFX=14THENPOKEV+16,1:R=1
185 IFA$="[157]"THENX=X-2:IFX=12THENPOKEV+16,0:R=0
186 IFX>22THENX=0:POKEV,HX:POKEV+16,0:R=0
187 IFX<0THENX=22:POKEV+16,1:R=1
190 IFA$="Z"THENGOSUB400:GOTO165
195 IFA$="[133]"THENGOSUB450
200 IFA$="[134]"THENGOSUB620
210 IFA$="[137]"THENGOSUB900
212 IFA$="[138]"THENPOKEV+21,3+2^(B+2)
213 IFA$="[135]"THENPOKEV+21,255
215 IFA$="[136]"THENPOKEV+21,0:END
220 IFA$="_"THENAF=0:POKE1952,159
225 IFA$="1"THENAF=F(0):POKE56224,AF:POKE1952,160
230 IFA$="2"THENAF=F(1):POKE56224,AF:POKE1952,160
235 IFA$="3"THENAF=F(B+2):POKE56224,AF:POKE1952,160
240 IFA$="C"THEN1020
242 IFA$=""THENX=0:Y=0:R=0:POKEV+16,0
245 IFA$="[147]"THENGOSUB730
250 IFA$="[176]"THENGOSUB1000
260 IFA$="L"THENGOSUB950
265 IFA$="S"THENGOSUB760
270 IFA$="F"THENGOSUB1140
275 IFA$="X"THENGOSUB600
276 IFA$="[216]"THENGOSUB970
280 IFA$="A"THENGOSUB680
283 IFA$="\"THENPOKEV+21,253
285 IFA$="[193]"THENT=16000+B*64+Y*3:Y1=Y:X1=0:GOSUB681
290 IFX<7THENS=0
292 IFX>6THENS=1
294 IFX>15THENS=2
300 GOTO160
397 :
398 REM --- PUNKT SETZEN ---
399 :
400 POKE55391+40*Y+X,AF:POKE55392+40*Y+X,AF:AD=16000+B*64+Y*3+S:W=PEEK(AD)
405 X1=7-(X-8*S)
410 IFAF=F(1)THENPOKEAD,WOR(2^X1+2^(X1-1))
415 IFAF=F(0)THENPOKEAD,WAND(255-2^(X1-1)-2^X1)OR2^(X1-1)
420 IFAF=F(B+2)THENPOKEAD,WAND(255-2^(X1-1)-2^X1)OR2^X1
422 IFAF=0THENPOKEAD,WAND(255-2^(X1-1)-2^X1)
425 RETURN
447 :
448 REM --- FARBE WECHSELN ---
449 :
450 A1=F(0):A2=F(1):A3=F(B+2):POKEV+39,1:POKEV+16,0:POKEV+1,50:FW=0:R1=0
456 U$="FARBWAHL":GOSUB9040:PRINT"[151]<CRSR L/R>":PRINT"[152]AUSWAHL"
457 PRINT"[151]<CRSR U/D>":PRINT"[152]FARBE":PRINT"[151]<RETURN>":PRINT"[152]ANWENDEN"
460 POKEV,144+FW*24-R1*255
462 GETA$:IFA$=""THEN460
465 IFA$=""THENFW=FW+1:IFFW=5THENPOKEV+16,1:R1=1
470 IFA$="[157]"THENFW=FW-1:IFFW=4THENPOKEV+16,0:R1=0
472 IFFW<0THENFW=0
473 IFFW>7THENFW=7
480 IFA$=""THENF(FW)=F(FW)-1:IFF(FW)<0THENF(FW)=15
482 IFA$="[145]"THENF(FW)=F(FW)+1:IFF(FW)>15THENF(FW)=0
484 IFA$=CHR$(13)THEN GOTO495
490 POKE55313+3*FW,F(FW):GOTO460
495 POKE53285,F(0):POKE53286,F(1):FORI=0TO5:POKEV+41+I,F(I+2):NEXT
496 REM  PRINT"";A1,A2,A3:PRINTF(0),F(1),F(B+2):POKEV+21,0: END
497 IFF(0)=A1ANDF(1)=A2ANDF(B+2)=A3THEN570
498 U$="":GOSUB9040:GOSUB9000
505 IF K=0THENGOTO520
515 GOTO570
520 IFA1=F(0)THEN535
525 FORI=0TO20:FORJ=0TO22STEP2:SI=55391+I*40+J
530 IF(PEEK(SI)AND15)=A1THENPOKESI,F(0):POKESI+1,F(0)
532 NEXTJ,I
535 IFA2=F(1)THEN550
540 FORI=0TO20:FORJ=0TO22STEP2:SI=55391+I*40+J
545 IF(PEEK(SI)AND15)=A2THENPOKESI,F(1):POKESI+1,F(1)
547 NEXTJ,I
550 IFA3=F(B+2)THEN570
555 FORI=0TO20:FORJ=0TO22STEP2:SI=55391+I*40+J
560 IF(PEEK(SI)AND15)=A3THENPOKESI,F(B+2):POKESI+1,F(B+2)
562 NEXTJ,I
570 POKEV,HX:POKEV+1,HY:POKEV+16,0
580 AF=F(0):POKE56224,F(0):POKE1952,160:U$="":GOSUB9040:RETURN
597 :
598 REM --- EXPAND ---
599 :
600 EX=EX+1:IFEX>1THENEX=0
605 IFEX=1THEN615
610 FORI=1TO12:POKEV+I+3,E0(I):NEXT:POKEV+23,0:POKEV+29,0
612 POKEV+2,PEEK(V+4+B*2):POKEV+3,PEEK(V+5+B*2):X9=0:RETURN
615 FORI=1TO12:POKEV+I+3,E1(I):NEXT:POKEV+23,254:POKEV+29,254
616 POKEV+2,PEEK(V+4+B*2):POKEV+3,PEEK(V+5+B*2):RETURN
617 :
618 REM --- BILD WECHSELN ---
619 :
620 POKEV+40,2:POKEV+21,254:NB=0
622 GETA$:IFA$=""THEN622
625 IFA$=""THENAX=AX+1:IFAX>2THENAX=2
627 IFA$="[157]"THENAX=AX-1:IFAX<0THENAX=0
630 IFA$="[145]"THENAY=AY-1:IFAY<0THENAY=0
632 IFA$=""THENAY=AY+1:IFAY>1THENAY=1
633 IFA$="_"THENPOKEV+2,PEEK(V+4+B*2):POKEV+40,1:POKEV+3,PEEK(V+5+B*2):GOTO720
634 IFA$=CHR$(13)THEN641
635 NB=AX+3*AY:POKEV+2,PEEK(V+4+NB*2):POKEV+3,PEEK(V+5+NB*2)
640 GOTO622
641 IF KC=1THENKC=0:RETURN
642 IFNB=BTHEN720
643 POKE55317+B*3,12:POKE55318+B*3,12:POKE55317+NB*3,1:POKE55318+NB*3,1
645 B=NB:T=16000+64*B:TT=0
650 IFPEEK(T)<>0THENTT=1:GOTO665
655 IFT>16063+64*BTHEN660
657 T=T+1:GOTO650
660 IFTT=0THENGOSUB9050:GOTO160
665 GOSUB9000:IFK=1THENGOSUB9050:GOTO720
679 :
680 T=16000+B*64:X1=0:Y1=0
681 FORI=TTO16062+B*64:FORJ=7TO0STEP-2
682 IFA$<>"_"THENGETA$
683 IFA$="_"THENNEXTJ,I:GOTO720
685 B1=2^J:B2=2^(J-1):W=PEEK(I)AND(B1+B2):FD=55391+40*Y1+X1:POKEFD,15
690 IFW=B2THENPOKEFD,F(0):POKEFD+1,F(0):GOTO710
695 IFW=B1THENPOKEFD,F(B+2):POKEFD+1,F(B+2):GOTO710
700 IFW=B1+B2THENPOKEFD,F(1):POKEFD+1,F(1):GOTO710
705 IFW=0THENPOKEFD,0:POKEFD+1,0
710 X1=X1+2:IFX1>22THENX1=0:Y1=Y1+1
715 NEXTJ,I
720 POKEV+40,1:POKEV+21,255:RETURN
727 :
728 REM --- LOESCHEN ---
729 :
730 U$="LOESCHEN":GOSUB9040:PRINT"[152]SPRITE":PRINT"WIRKLICH"
732 PRINT"LOESCHEN?"
735 GOSUB9060
740 IFK=1THENRETURN
745 FORI=16000+B*64TO16063+B*64:POKEI,0:NEXT
750 U$="":GOSUB9040:GOTO9050
757 :
758 REM --- SPEICHERN ---
759 :
760 U$="SPEICHERN":GOSUB9040:PRINT"[152]ALLE 6 SPRITES":POKEV+21,252:GOSUB9060
764 IFK=0THENSS(0)=0:SS(1)=5:GOTO810
770 GOSUB9040:FORI=0TO1
775 IFI=0THENPRINT"[151]VON NR.";
776 IFI=1THENPRINT"BIS"
780 GETA$:IFA$=""THEN780
790 SS(I)=VAL(A$)-1:IFSS(I)<0ORSS(I)>5THEN780
792 IFI=1ANDSS(1)<SS(0)THEN780
793 POKE1551+I*6,ASC(A$):POKE55823+I*6,1:
795 NEXTI
796 SW=0:FORI=SS(0)TOSS(1):SW=SW+2^(I+2):NEXT:POKEV+21,SW
797 PRINT"[152]KORREKT?":GOSUB9060:IFK=1THENPOKEV+21,252:GOTO770
800 IFS(1)<S(0)THEN770
810 GOSUB9040:PRINT"[151]1-[152]NEUE DATEI"
815 PRINT"[151]2-[152]AN ALTE DAT.":PRINT"  ANHAENGEN"
820 PRINT"[151]_ [152]ABBRUCH
825 [161]A$:[139]A$[178]""[167]825
830 [139]A$[178]"_"[167]U$[178]"":[141]9040:[151]V[170]21,255:[142]
835 [139][197](A$)[179]1[176][197](A$)[177]2[167]825
840 [139]A$[178]"1"[167]SO$[178]"W"
845 [139]A$[178]"2"[167]SO$[178]"A"
880 [141]9040:[153]"POKENAME:":[153]">":[141]9100
882 [139]N$[178]""[167][151]V[170]21,255:U$[178]"":[141]9040:[142]
885 [151]V[170]21,0:O$[178]N$[170]",S,"[170]SO$:[159]2,8,2,O$
890 [129]I[178]16000[170]SS(0)[172]64[164]16063[170]SS(1)[172]64:[152]2,[194](I):[130]:[160]2:[151]V[170]21,255
895 U$[178]"":[141]9040:[142]
897 :
898 [143] --- KEY MAP ---
899 :
900 [151]V[170]21,252:KN[178]0:[140]:[129]I[178]0[164]214:[135]Q:[130]
905 [141]9050:[153]"";[163]17);"KEY MAP"
910 [153]""
915 [129]I[178]0[164]7:[135]A$,B$:[153][163]16);"POKE<";A$;">":[153][163]16);"PRINT#";B$:[130]
920 [153][163]16);"<SPACE> NAECHSTE SEITE":[153][163]20);"<_> ZURUECK"
925 [161]A$:[139]A$[178]""[167]925
930 [139]A$[178]"_"[167][141]9050:[151]V[170]21,255:[142]
935 [139]A$[179][177]" "[167]925
940 KN[178]KN[170]1:[139]KN[178]3[167]900
945 [137]905
947 :
948 [143] --- LADEN ---
949 :
950 U$[178]"LADEN":[141]9040:[153]"POKENAME":[153]">":[141]9100
952 [139]N$[178]""[167]U$[178]"":[141]9040:[142]
955 [151]V[170]21,0:[159]2,8,2,N$[170]",S,R":[129]I[178]16000[164]16383:[132]2,Q:[151]I,Q:[130]
960 [160]2:[151]V[170]21,255:B[178][171]1:U$[178]"":[141]9040:[137]620
970 [139]EX[178]0[167][142]
971 [139]X9[178]0[167]X9[178]1:[129]I[178]4[164]14[169]2:[151]V[170]I,[194](V[170]I)[171]24:[130]:[137]973
972 [139]X9[178]1[167]X9[178]0:[129]I[178]4[164]14[169]2:[151]V[170]I,[194](V[170]I)[170]24:[130]
973 [151]V[170]2,[194](V[170]4[170]B[172]2):[142]
997 :
998 [143] --- ALLES LOESCHEN ---
999 :
1000 U$[178]"ALLES LOESCHEN":[141]9040:[153]"PRINT#WIRKLICH?":[141]9060
1005 [139]K[178]1[167]1015
1010 [129]I[178]16000[164]16383:[151]I,O:[130]:[141]9050
1015 U$[178]"":[141]9040:[142]
1017 :
1018 [143] --- KOPIEREN ---
1019 :
1020 Z1[178]0:Z2[178]0:U$[178]"KOPIEREN":[141]9040:[153]"POKE1-PRINT#SPRITE":[153]"POKE2-PRINT#AUSWAHL"
1022 [153]"POKE_-PRINT#ABBRECHEN"
1025 [161]A$:[139]A$[178]""[167]1025
1027 [139]A$[178]"_"[167]U$[178]"":[141]9040:[137]160
1030 A[178][197](A$):[139]A[179]1[176]A[177]2[167]1025
1035 [141]9040:[139]A[178]1[167]Z1[178]0:Z2[178]20:[137]1105
1040 Z1[178]0:[151]V,HX:[153]"POKEVON ZEILE:"
1045 [151]V[170]1,HY[170]Z1[172]8
1050 [161]A$:[139]A$[178]""[167]1050
1055 [139]A$[178]"ON"[167]Z1[178]Z1[171]1:[139]Z1[179]0[167]Z1[178]0
1060 [139]A$[178]""[167]Z1[178]Z1[170]1:[139]Z1[177]20[167]Z1[178]20
1065 [139]A$[178][199](13)[167][151]1555,49[170]Z1:[153]"BIS ZEILE:";:[151]55827,1:[137]1075
1070 [137]1045
1075 Z2[178]Z1
1077 [161]A$:[139]A$[178]""[167]1077
1080 [139]A$[178]""[167]Z2[178]Z2[170]1:[139]Z2[177]20[167]Z2[178]20
1082 [139]A$[178]"ON"[167]Z2[178]Z2[171]1:[139]Z2[179]Z1[167]Z2[178]Z1
1084 [139]A$[178][199](13)[167]1100
1086 [151]V[170]1,HY[170]Z2[172]8:[137]1077
1100 [153]"";Z2:[153]"PRINT#KORREKT?":[141]9060:[139]K[178]1[167]1020
1105 [141]9040:[153]"POKEKOPIEREN NACH":[153]"SPRITE-NR.:";
1110 KC[178]1:[141]620:[153]"";NB[170]1
1120 [153]"PRINT#KORREKT?":[141]9060:[139]K[178]1[167]1020
1125 [129]I[178]Z1[172]3[164]Z2[172]3[170]3:[151]16000[170]NB[172]64[170]I,[194](16000[170]B[172]64[170]I):[130]
1130 U$[178]"":[141]9040:[151]V[170]21,255:[151]V[170]2,[194](V[170]4[170]B[172]2):[151]V[170]3,[194](V[170]5[170]2[172]B)
1135 [137]160
1137 :
1138 [143] --- FUELLEN ---
1139 :
1140 U$[178]"FUELLEN":[141]9040:[153]"POKEBEREICH":[153]"(C=A-ALLES)
1142 PRINT"[152]LINKE OBERE":PRINT"ECKE WAEHLEN":PRINT"[151]<RETURN>"
1144 GOSUB9230:IFA$="_"THENA$="":POKEV+39,7:U$="":GOSUB9040:RETURN
1150 FORY=AY(1)TOAY(2):FORX=AX(1)TOAX(2)STEP2
1152 IFX<7THENS=0
1154 IFX>6THENS=1
1156 IFX>15THENS=2
1158 GOSUB400:NEXTX,Y:U$="":GOSUB9040:RETURN
1997 :
1998 REM --- INTRO ---
1999 :
2000 PRINT"[147]"
2001 FORI=0TO7:POKE2040+I,240+I:NEXT
2002 POKE53276,255:POKEV+23,63:POKEV+29,255:A=110
2005 POKEV,100:POKEV+2,148:POKEV+4,196:POKEV+6,100:POKEV+8,148:POKEV+10,196
2010 POKEV+1,70:POKEV+3,70:POKEV+5,70:POKEV+7,112:POKEV+9,112:POKEV+11,112
2015 POKEV+13,154:POKEV+15,154:POKEV+12,148:POKEV+14,196
2020 POKE53285,7:POKE53286,9:POKEV+41,1:POKEV+42,15:POKEV+43,12:POKEV+44,11
2022 POKEV+45,1:POKEV+46,1:POKEV+21,255
2024 PRINT"  F2 WAEHREND D. PROGRAMM ZEIGT KEYMAP"
2026 GETA$:IFA$=""THEN2026
2030 PRINT"[147]":RETURN
8997 REM ---------------
8998 REM - SUBROUTINEN -
8999 REM ---------------
9000 PRINT"[152]MATRIX":PRINT"AKTUALISIEREN?"
9005 GOSUB9060:GOSUB9040:RETURN
9019 :
9020 FORI=0TO20:PRINTTAB(16);"[144]                        ":NEXT
9030 POKEV+40,1:GOTO100
9037 :
9038 :REM TEXTFELD LOESCHEN
9039 :
9040 PRINT"":FORI=0TO10:PRINT"              ":NEXT:PRINT"[151]"
9042 IFU$=""THENRETURN
9043 PRINT"";U$:RETURN
9049 :
9050 PRINT"":FORI=0TO20:PRINTTAB(15);"[144]                        ":NEXT
9055 RETURN
9058 :
9059 REM --- JA/NEIN FRAGE ---
9060 K=0
9061 PRINT"";X$(K)
9065 GETA$:IFA$=""THEN9065
9070 IFA$=""THENK=K+1:IFK>1THENK=0
9071 IFA$="[157]"THENK=K-1:IFK<0THENK=1
9075 IFA$=CHR$(13)THENGOSUB9040:RETURN
9077 GOTO 9061
9097 :
9098 REM --- TIPPEN ---
9099 :
9100 POKE1665,160:N$="":L=0
9105 GETA$:IFA$=""THEN9105
9110 IFA$=CHR$(13)THENN$=LEFT$(N$,10):RETURN
9112 B=ASC(A$):IFB=20THENPRINT"[145]>           ":GOTO9100
9113 IFB<32ORB>90THEN9105
9114 IFB=34ORB=44THEN9105
9115 IFB>64THENB=B-64
9116 L=L+1:IFL>10THENL=10
9118 IFL<11THENN$=N$+A$:POKE1664+L,B:POKE1665+L,160
9120 GOTO9105
9227 :
9228 REM --- AUSWAHL ---
9229 :
9230 POKEV+39,5:AX(1)=X:AY(1)=Y:AR=R
9233 FORI=1TO2:AX(2)=AX(1):AY(2)=AY(1)
9235 GETA$:IFA$="[176]"THENAX(1)=0:AX(2)=22:AY(1)=0:AY(2)=20:NEXTI:GOTO9280
9236 IFA$="_"THENNEXTI:RETURN
9237 POKEV,HX+8*AX(I)-AR*255:POKEV+1,HY+8*AY(I)
9250 IFA$=""THENAX(I)=AX(I)+2:IFAX(I)=14THENAR=1:POKEV+16,1
9252 IFA$="[157]"THENAX(I)=AX(I)-2:IFAX(I)=12THENAR=0:POKEV+16,0
9254 IFA$=""THENAY(I)=AY(I)+1:IFAY(I)>20THENAY(I)=20
9256 IFA$="[145]"THENAY(I)=AY(I)-1:IFAY(I)<AY(I-1)THENAY(I)=AY(I-1)
9260 IFA$=CHR$(13)THENGOTO9270
9265 IFAX(I)>22THENAX(I)=22
9267 IFAX(I)<AX(I-1)THENAX(I)=AX(I-1)
9269 GOTO9235
9270 PRINT"[151]_ ABBRECHEN":PRINT"[152]RECHTE UNTERE"
9275 NEXTI
9280 POKEV+39,7:X=AX(2):Y=AY(2):R=AR:RETURN
9300 DATA CRSR,BEWEGEN
9302 DATA Z,"PUNKT SETZEN",A,"MATRIX AKTUALISIEREN",SHIFT+A
9305 DATA "AB CRSR-POS AKT.",S,SPEICHERN,L,LADEN,F1,FARBWAHL,F2,KEY-MAP
9310 DATA F3,"AUSSCHNITT WAEHLEN",F4,"NUR AUSCHNITT ZEIGEN",F5,"ALLES ZEIGEN"
9312 DATA _,LOESCHEN/ABBRUCH,1,"PINSELFARBE 1 (H1)",2
9315 DATA "PINSELFARBE 2 (H2)",3,"PINSELFARBE 3 (F?)",C,KOPIEREN,X
9317 DATA EXPAND/UNEXPAND,SHIFT+X,"SPRITES VERSCHIEBEN",CLR
9320 DATA "SPRITE LOESCHEN",HOME,"CRSR IN HOMEPOSITION",C=+A,"ALLES LOESCHEN",F
9325 DATA FUELLEN,SHIFT+F,"LEERSTELLEN FUELLEN",\,"AUSCHNITTFENSTER AUS"